(pr-get-symbol): Define during compile.

diff --git a/lisp/printing.el b/lisp/printing.el
index c53b41b84d5ab505bc3d7730054ad5cbfec2a8aa..eb55586591bb4071bd184956b463b577346e0c02 100644 (file)
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -2344,13 +2344,14 @@ See `pr-ps-printer-alist'.")
        ,@body
        (kill-buffer temp))))
 
-
+(eval-and-compile
 (defun pr-get-symbol (name)
   ;; Recent versions of easy-menu downcase names before interning them.
   (and (fboundp 'easy-menu-name-match)
        (setq name (downcase name)))
   (or (intern-soft name)
       (make-symbol name)))
+)
 
 
 (defsubst pr-visible-p (key)